home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS26.ADF / SoundScape / AztecLib / sslink.asm < prev    next >
Assembly Source File  |  1989-01-26  |  6KB  |  380 lines
  1. *    SSLINK.ASM    SoundScape library link routines. 
  2.  
  3. *    (c) 1986 Todor Fay 
  4. * 
  5.  
  6.  
  7.     GLOBAL    _SoundScapeBase,4
  8.  
  9.     PUBLIC    __Dorg
  10.     PUBLIC    _AllocNode 
  11.     PUBLIC    _FastAlloc 
  12.     PUBLIC    _FreeNode 
  13.     PUBLIC    _FreeList 
  14.     PUBLIC    _FreeTree 
  15.     PUBLIC    _ReleaseMem 
  16.     PUBLIC    _WriteList 
  17.     PUBLIC    _ReadList 
  18.     PUBLIC    _AddMidiPort 
  19.     PUBLIC    _OpenMidiPort 
  20.     PUBLIC    _CloseMidiPort 
  21.     PUBLIC    _EditMidiPort 
  22.     PUBLIC    _OutMidiPort 
  23.     PUBLIC    _Send 
  24.     PUBLIC    _OpenLink 
  25.     PUBLIC    _CloseLink 
  26.     PUBLIC    _GetHelp 
  27.     PUBLIC    _RemoveMidiPort 
  28.     PUBLIC    _FunctionCall 
  29.     PUBLIC    _ReadFileName 
  30.     PUBLIC    _WriteFileName 
  31.     PUBLIC    _FindMidiPort 
  32.     PUBLIC    _MidiPortName 
  33.     PUBLIC    _MidiPortBase 
  34.  
  35. _LVOmusalloc    EQU    -36 
  36. _LVOmusfastalloc EQU    -42 
  37. _LVOmusfree    EQU    -48 
  38. _LVOmusfreelist    EQU    -54 
  39. _LVOmusfreetree    EQU    -60 
  40. _LVOreleasemem    EQU    -66 
  41. _LVOwritelist    EQU    -72 
  42. _LVOreadlist    EQU    -78 
  43. _LVOaddport    EQU    -84 
  44. _LVOopenport    EQU    -90 
  45. _LVOcloseport    EQU    -96 
  46. _LVOeditport    EQU    -102 
  47. _LVOoutport    EQU    -108 
  48. _LVOsendpackets    EQU    -114 
  49. _LVOopenlink    EQU    -120 
  50. _LVOcloselink    EQU    -126 
  51. _LVOgethelp    EQU    -132 
  52. _LVOremoveport    EQU    -138 
  53. _LVOfunctcall    EQU    -144 
  54. _LVOreadname    EQU    -150 
  55. _LVOwritename    EQU    -156 
  56. _LVOfindport    EQU    -162 
  57. _LVOportname    EQU    -168 
  58. _LVOportbase    EQU    -174 
  59.  
  60. _MidiPortBase 
  61.     LINK    A6,#0000 
  62.     MOVE.L    8(A6),D0 
  63.     MOVE.L    A6,-(SP) 
  64.     MOVE.L    _SoundScapeBase,A6 
  65.     JSR    _LVOportbase(A6) 
  66.     MOVE.L    (SP)+,A6 
  67.     UNLK    A6 
  68.     RTS 
  69.  
  70. _AllocNode 
  71.     LINK    A6,#0000 
  72.     MOVE.L    8(A6),D0 
  73.     MOVE.L    A6,-(SP) 
  74.     MOVE.L    _SoundScapeBase,A6 
  75.     JSR    _LVOmusalloc(A6) 
  76.     MOVE.L    (SP)+,A6 
  77.     UNLK    A6 
  78.     RTS 
  79.  
  80. _FastAlloc 
  81.     LINK    A6,#0000 
  82.     MOVE.L    8(A6),D0 
  83.     MOVE.L    A6,-(SP) 
  84.     MOVE.L    _SoundScapeBase,A6 
  85.     JSR    _LVOmusfastalloc(A6) 
  86.     MOVE.L    (SP)+,A6 
  87.     UNLK    A6 
  88.     RTS 
  89.  
  90. _FreeNode 
  91.     LINK    A6,#0000 
  92.     MOVE.L    8(A6),D0 
  93.     MOVE.L    A6,-(SP) 
  94.     MOVE.L    _SoundScapeBase,A6 
  95.     JSR    _LVOmusfree(A6) 
  96.     MOVE.L    (SP)+,A6 
  97.     UNLK    A6 
  98.     RTS 
  99.  
  100. _FreeList 
  101.     LINK    A6,#0000 
  102.     MOVE.L    8(A6),D0 
  103.     MOVE.L    A6,-(SP) 
  104.     MOVE.L    _SoundScapeBase,A6 
  105.     JSR    _LVOmusfreelist(A6) 
  106.     MOVE.L    (SP)+,A6 
  107.     UNLK    A6 
  108.     RTS 
  109.  
  110. _FreeTree 
  111.     LINK    A6,#0000 
  112.     MOVE.L    8(A6),D0 
  113.     MOVE.L    A6,-(SP) 
  114.     MOVE.L    _SoundScapeBase,A6 
  115.     JSR    _LVOmusfreetree(A6) 
  116.     MOVE.L    (SP)+,A6 
  117.     UNLK    A6 
  118.     RTS 
  119.  
  120. _ReleaseMem 
  121.     LINK    A6,#0000 
  122.     MOVE.L    8(A6),D0 
  123.     MOVE.L    A6,-(SP) 
  124.     MOVE.L    _SoundScapeBase,A6 
  125.     JSR    _LVOreleasemem(A6) 
  126.     MOVE.L    (SP)+,A6 
  127.     UNLK    A6 
  128.     RTS 
  129. _WriteList 
  130.     LINK    A6,#0000 
  131.     MOVE.L    8(A6),D0 
  132.     MOVE.L    A6,-(SP) 
  133.     MOVE.L    D1,-(SP) 
  134.     MOVE.L    12(A6),D1 
  135.     MOVE.L    _SoundScapeBase,A6 
  136.     JSR    _LVOwritelist(A6) 
  137.     MOVE.L    (SP)+,D1 
  138.     MOVE.L    (SP)+,A6 
  139.     UNLK    A6 
  140.     move.l    #__Dorg,a4
  141.     add.l    #32766,a4
  142.     RTS 
  143.  
  144. _ReadList 
  145.     LINK    A6,#0000 
  146.     MOVE.L    8(A6),D0 
  147.     MOVE.L    A6,-(SP) 
  148.     MOVE.L    D1,-(SP) 
  149.     MOVE.L    12(A6),D1 
  150.     MOVE.L    _SoundScapeBase,A6 
  151.     JSR    _LVOreadlist(A6) 
  152.     MOVE.L    (SP)+,D1 
  153.     MOVE.L    (SP)+,A6 
  154.     UNLK    A6 
  155.     move.l    #__Dorg,a4
  156.     add.l    #32766,a4
  157.     RTS 
  158.  
  159. _AddMidiPort 
  160.     LINK    A6,#0000 
  161.     MOVEM.L    D1-D7/A6,-(SP) 
  162.     MOVE.L    8(A6),D7 
  163.     MOVE.L    12(A6),D6 
  164.     MOVE.L    16(A6),D5 
  165.     MOVE.L    20(A6),D4 
  166.     MOVE.L    24(A6),D3 
  167.     MOVE.L    28(A6),D2 
  168.     MOVE.L    32(A6),D1 
  169.     MOVE.L    36(A6),D0 
  170.     MOVE.L    _SoundScapeBase,A6 
  171.     JSR    _LVOaddport(A6) 
  172.     MOVEM.L    (SP)+,D1-D7/A6 
  173.     UNLK    A6 
  174.     move.l    #__Dorg,a4
  175.     add.l    #32766,a4
  176.     RTS 
  177.  
  178. _OpenMidiPort 
  179.     LINK    A6,#0000 
  180.     MOVE.L    8(A6),D0 
  181.     MOVE.L    A6,-(SP) 
  182.     MOVE.L    D1,-(SP) 
  183.     MOVE.L    12(A6),D1 
  184.     MOVE.L    _SoundScapeBase,A6 
  185.     JSR    _LVOopenport(A6) 
  186.     MOVE.L    (SP)+,D1 
  187.     MOVE.L    (SP)+,A6 
  188.     UNLK    A6 
  189.     move.l    #__Dorg,a4
  190.     add.l    #32766,a4
  191.     RTS 
  192.  
  193. _CloseMidiPort 
  194.     LINK    A6,#0000 
  195.     MOVE.L    8(A6),D0 
  196.     MOVE.L    A6,-(SP) 
  197.     MOVE.L    D1,-(SP) 
  198.     MOVE.L    12(A6),D1 
  199.     MOVE.L    _SoundScapeBase,A6 
  200.     JSR    _LVOcloseport(A6) 
  201.     MOVE.L    (SP)+,D1 
  202.     MOVE.L    (SP)+,A6 
  203.     UNLK    A6 
  204.     move.l    #__Dorg,a4
  205.     add.l    #32766,a4
  206.     RTS 
  207.  
  208. _EditMidiPort 
  209.     LINK    A6,#0000 
  210.     MOVE.L    8(A6),D0 
  211.     MOVEM.L    D1-D3/A6,-(SP) 
  212.     MOVE.L    12(A6),D1 
  213.     MOVE.L    16(A6),D2 
  214.     MOVE.L    20(A6),D3 
  215.     MOVE.L    _SoundScapeBase,A6 
  216.     JSR    _LVOeditport(A6) 
  217.     MOVEM.L    (SP)+,D1-D3/A6 
  218.     UNLK    A6 
  219.     move.l    #__Dorg,a4
  220.     add.l    #32766,a4
  221.     RTS 
  222.  
  223. _OutMidiPort 
  224.     LINK    A6,#0000 
  225.     MOVE.L    8(A6),D0 
  226.     MOVE.L    A6,-(SP) 
  227.     MOVE.L    D1,-(SP) 
  228.     MOVE.L    12(A6),D1 
  229.     MOVE.L    _SoundScapeBase,A6 
  230.     JSR    _LVOoutport(A6) 
  231.     MOVE.L    (SP)+,D1 
  232.     MOVE.L    (SP)+,A6 
  233.     UNLK    A6 
  234.     move.l    #__Dorg,a4
  235.     add.l    #32766,a4
  236.     RTS 
  237.  
  238. _Send 
  239.     LINK    A6,#0000 
  240.     MOVE.L    8(A6),D0 
  241.     MOVE.L    A6,-(SP) 
  242.     MOVE.L    D1,-(SP) 
  243.     MOVE.L    12(A6),D1 
  244.     MOVE.L    _SoundScapeBase,A6 
  245.     JSR    _LVOsendpackets(A6) 
  246.     MOVE.L    (SP)+,D1 
  247.     MOVE.L    (SP)+,A6 
  248.     UNLK    A6 
  249.     move.l    #__Dorg,a4
  250.     add.l    #32766,a4
  251.     RTS 
  252.  
  253. _OpenLink 
  254.     LINK    A6,#0000 
  255.     MOVE.L    8(A6),D0 
  256.     MOVE.L    A6,-(SP) 
  257.     MOVE.L    D1,-(SP) 
  258.     MOVE.L    12(A6),D1 
  259.     MOVE.L    _SoundScapeBase,A6 
  260.     JSR    _LVOopenlink(A6) 
  261.     MOVE.L    (SP)+,D1 
  262.     MOVE.L    (SP)+,A6 
  263.     UNLK    A6 
  264.     move.l    #__Dorg,a4
  265.     add.l    #32766,a4
  266.     RTS 
  267.  
  268. _CloseLink 
  269.     LINK    A6,#0000 
  270.     MOVE.L    8(A6),D0 
  271.     MOVE.L    A6,-(SP) 
  272.     MOVE.L    D1,-(SP) 
  273.     MOVE.L    12(A6),D1 
  274.     MOVE.L    _SoundScapeBase,A6 
  275.     JSR    _LVOcloselink(A6) 
  276.     MOVE.L    (SP)+,D1 
  277.     MOVE.L    (SP)+,A6 
  278.     UNLK    A6 
  279.     move.l    #__Dorg,a4
  280.     add.l    #32766,a4
  281.     RTS 
  282.  
  283. _GetHelp 
  284.     LINK    A6,#0000 
  285.     MOVE.L    8(A6),D0 
  286.     MOVE.L    A6,-(SP) 
  287.     MOVE.L    _SoundScapeBase,A6 
  288.     JSR    _LVOgethelp(A6) 
  289.     MOVE.L    (SP)+,A6 
  290.     UNLK    A6 
  291.     move.l    #__Dorg,a4
  292.     add.l    #32766,a4
  293.     RTS 
  294.  
  295. _FindMidiPort 
  296.     LINK    A6,#0000 
  297.     MOVE.L    8(A6),D0 
  298.     MOVE.L    A6,-(SP) 
  299.     MOVE.L    _SoundScapeBase,A6 
  300.     JSR    _LVOfindport(A6) 
  301.     MOVE.L    (SP)+,A6 
  302.     UNLK    A6 
  303.     move.l    #__Dorg,a4
  304.     add.l    #32766,a4
  305.     RTS 
  306.      
  307. _MidiPortName 
  308.     LINK    A6,#0000 
  309.     MOVE.L    8(A6),D0 
  310.     MOVE.L    A6,-(SP) 
  311.     MOVE.L    _SoundScapeBase,A6 
  312.     JSR    _LVOportname(A6) 
  313.     MOVE.L    (SP)+,A6 
  314.     UNLK    A6 
  315.     move.l    #__Dorg,a4
  316.     add.l    #32766,a4
  317.     RTS 
  318.  
  319. _RemoveMidiPort 
  320.     LINK    A6,#0000 
  321.     MOVE.L    8(A6),D0 
  322.     MOVE.L    A6,-(SP) 
  323.     MOVE.L    _SoundScapeBase,A6 
  324.     JSR    _LVOremoveport(A6) 
  325.     MOVE.L    (SP)+,A6 
  326.     UNLK    A6 
  327.     move.l    #__Dorg,a4
  328.     add.l    #32766,a4
  329.     RTS 
  330.  
  331. _FunctionCall 
  332.     LINK    A6,#0000 
  333.     MOVEM.L    D1-D7/A6,-(SP) 
  334.     MOVE.L    8(A6),D0 
  335.     MOVE.L    12(A6),D1 
  336.     MOVE.L    16(A6),D2 
  337.     MOVE.L    20(A6),D3 
  338.     MOVE.L    24(A6),D4 
  339.     MOVE.L    28(A6),D5 
  340.     MOVE.L    32(A6),D6 
  341.     MOVE.L    36(A6),D7 
  342.     MOVE.L    _SoundScapeBase,A6 
  343.     JSR    _LVOfunctcall(A6) 
  344.     MOVEM.L    (SP)+,D1-D7/A6 
  345.     UNLK    A6 
  346.     move.l    #__Dorg,a4
  347.     add.l    #32766,a4
  348.     RTS 
  349.  
  350. _ReadFileName 
  351.     LINK    A6,#0000 
  352.     MOVEM.L    D1-D2/A6,-(SP) 
  353.     MOVE.L    8(A6),D0 
  354.     MOVE.L    12(A6),D1 
  355.     MOVE.L    16(A6),D2 
  356.     MOVE.L    _SoundScapeBase,A6 
  357.     JSR    _LVOreadname(A6) 
  358.     MOVEM.L    (SP)+,D1-D2/A6 
  359.     UNLK    A6 
  360.     move.l    #__Dorg,a4
  361.     add.l    #32766,a4
  362.     RTS 
  363.  
  364. _WriteFileName 
  365.     LINK    A6,#0000 
  366.     MOVEM.L    D1-D2/A6,-(SP) 
  367.     MOVE.L    8(A6),D0 
  368.     MOVE.L    12(A6),D1 
  369.     MOVE.L    16(A6),D2 
  370.     MOVE.L    _SoundScapeBase,A6 
  371.     JSR    _LVOwritename(A6) 
  372.     MOVEM.L    (SP)+,D1-D2/A6 
  373.     UNLK    A6 
  374.     move.l    #__Dorg,a4
  375.     add.l    #32766,a4
  376.     RTS 
  377.  
  378.  
  379.     END 
  380.